home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 6.1.E.dxr / Internal_122_inkomstentekst.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  990 b   |  26 lines
  1. on inkomsttekst
  2.   global keuze, maclist, inkomstenlijst
  3.   tekst = EMPTY
  4.   tellertje = 0
  5.   bufferinhoud = inkomstenlijst[keuze]
  6.   tellertje = 1
  7.   repeat while line tellertje of bufferinhoud > EMPTY
  8.     repeat with Tellertje8 = 1 to (line tellertje of bufferinhoud).length
  9.       if char Tellertje8 of line tellertje of bufferinhoud = numToChar(10) then
  10.         put EMPTY into char Tellertje8 of line tellertje of bufferinhoud
  11.       end if
  12.       if (char Tellertje8 of line tellertje of bufferinhoud).charToNum > 127 then
  13.         if the platform contains "Mac" then
  14.           put numToChar(maclist[(char Tellertje8 of line tellertje of bufferinhoud).charToNum - 127]) into char Tellertje8 of line tellertje of bufferinhoud
  15.         end if
  16.       end if
  17.     end repeat
  18.     tellertje = tellertje + 1
  19.   end repeat
  20.   put bufferinhoud into member "inkomst"
  21.   repeat with teller = 62 to 73
  22.     set the foreColor of sprite teller to 255
  23.   end repeat
  24.   set the foreColor of sprite (61 + keuze) to 4
  25. end
  26.